home *** CD-ROM | disk | FTP | other *** search
/ Aminet 15 / Aminet 15 - Nov 1996.iso / Aminet / dev / basic / ace24dist.lha / ace24.lha / prgs / Turtle / torus.b < prev    next >
Text File  |  1996-09-10  |  252b  |  26 lines
  1. '..Torus
  2.  
  3. defint a-z
  4.  
  5. screen 1,640,200,1,2
  6. window 1,,(0,10)-(640,200),32,1
  7.  
  8. penup
  9. setxy 280,110
  10. pendown
  11.  
  12. for i=1 to 36
  13.  for j=1 to 72
  14.    forward 5
  15.    turnright 5
  16.  next
  17.  forward 3
  18.  turnright 10
  19. next
  20.  
  21. while inkey$=""
  22. wend 
  23.  
  24. window close 1
  25. screen close 1
  26.